home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / AGSLC20.ZIP / AGSLCD.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-12-22  |  5KB  |  323 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER009
  28.     Integer  INTEGER010
  29.     Integer  INTEGER011
  30.     Integer  INTEGER012
  31.     Integer  INTEGER013
  32.     Integer  INTEGER014
  33.     Integer  INTEGER015
  34.     Integer  INTEGER016
  35.     Integer  INTEGER017
  36.     Integer  INTEGER018
  37.     Integer  INTEGER019
  38.     Integer  INTEGER020
  39.     Integer  INTEGER021
  40.     Integer  INTEGER022
  41.     Integer  INTEGER023
  42.     Integer  INTEGER024
  43.     Integer  INTEGER025
  44.     Integer  INTEGER026
  45.     Integer  INTEGER027
  46.     Integer  INTEGER028
  47.     Integer  INTEGER029
  48.     Integer  INTEGER030
  49.     Integer  INTEGER031
  50.     Integer  INTEGER032
  51.     Integer  INTEGER033
  52.     Integer  INTEGER034
  53.     Integer  INTEGER035
  54.     Integer  INTEGER036
  55.     Integer  INTEGER037
  56.     Integer  INTEGER038
  57.     Integer  INTEGER039
  58.     Integer  INTEGER040
  59.     Integer  INTEGER041
  60.     String   STRING001
  61.     String   STRING002
  62.     String   STRING003
  63.     String   STRING004
  64.     String   STRING005
  65.     String   STRING006
  66.     String   STRING007
  67.     String   STRING008
  68.  
  69. ;------------------------------------------------------------------------------
  70.  
  71.     If (Exist(PPEPath() + "AGSLCTMP." + String(PcbNode()))) Then
  72.         FOpen 1, PPEPath() + "AGSLCTMP." + String(PcbNode()), 0, 2
  73.         FGet 1, STRING002
  74.         FGet 1, INTEGER024
  75.         FGet 1, INTEGER025
  76.         FGet 1, INTEGER027
  77.         FGet 1, INTEGER028
  78.         FGet 1, INTEGER026
  79.         FClose 1
  80.         If (STRING002 <> U_Name()) Delete PPEPath() + "AGSLCTMP." + String(PcbNode())
  81.     Endif
  82.     FOpen 1, PPEPath() + "AGSLC.CFG", 0, 0
  83.     FGet 1, STRING001
  84.     FGet 1, INTEGER001
  85.     FGet 1, INTEGER002
  86.     FGet 1, INTEGER003
  87.     FGet 1, INTEGER004
  88.     FGet 1, INTEGER005
  89.     FGet 1, INTEGER006
  90.     FGet 1, INTEGER007
  91.     FGet 1, INTEGER008
  92.     FGet 1, INTEGER009
  93.     FGet 1, INTEGER010
  94.     FGet 1, INTEGER011
  95.     FGet 1, INTEGER012
  96.     FGet 1, INTEGER013
  97.     FGet 1, INTEGER014
  98.     FGet 1, INTEGER015
  99.     FGet 1, INTEGER016
  100.     FGet 1, INTEGER017
  101.     FGet 1, INTEGER018
  102.     FGet 1, INTEGER019
  103.     FGet 1, INTEGER022
  104.     FGet 1, INTEGER023
  105.     FGet 1, INTEGER020
  106.     FGet 1, INTEGER021
  107.     FClose 1
  108.     If (Upper(STRING001) == "BLUE") Then
  109.         STRING006 = "@X01"
  110.         STRING007 = "@X09"
  111.         STRING008 = "@X0F"
  112.     Endif
  113.     If (Upper(STRING001) == "GREEN") Then
  114.         STRING006 = "@X02"
  115.         STRING007 = "@X0A"
  116.         STRING008 = "@X0F"
  117.     Endif
  118.     If (Upper(STRING001) == "CYAN") Then
  119.         STRING006 = "@X03"
  120.         STRING007 = "@X0B"
  121.         STRING008 = "@X0F"
  122.     Endif
  123.     If (Upper(STRING001) == "RED") Then
  124.         STRING006 = "@X04"
  125.         STRING007 = "@X0C"
  126.         STRING008 = "@X0F"
  127.     Endif
  128.     If (Upper(STRING001) == "MAGENTA") Then
  129.         STRING006 = "@X05"
  130.         STRING007 = "@X0D"
  131.         STRING008 = "@X0F"
  132.     Endif
  133.     If (Upper(STRING001) == "WHITE") Then
  134.         STRING006 = "@X08"
  135.         STRING007 = "@X07"
  136.         STRING008 = "@X0F"
  137.     Endif
  138.     DispFile PPEPath() + "AGSLC.PCB", 0
  139.     FOpen 1, PPEPath() + "AGSLC.DAT", 0, 2
  140.     FGet 1, STRING003
  141.     FGet 1, INTEGER030
  142.     FGet 1, INTEGER031
  143.     FGet 1, INTEGER035
  144.     FGet 1, INTEGER034
  145.     FGet 1, INTEGER033
  146.     FGet 1, INTEGER032
  147.     FGet 1, INTEGER036
  148.     FGet 1, INTEGER037
  149.     FGet 1, INTEGER041
  150.     FGet 1, INTEGER040
  151.     FGet 1, INTEGER039
  152.     FGet 1, INTEGER038
  153.     Dec INTEGER001
  154.     AnsiPos INTEGER008, INTEGER009
  155.     STRING005 = String(INTEGER030 + 1)
  156.     Gosub LABEL002
  157.     Print STRING005
  158.     AnsiPos INTEGER010, INTEGER011
  159.     STRING005 = String(INTEGER031)
  160.     If (U_Logons() == 1) STRING005 = String(INTEGER031 + 1)
  161.     Gosub LABEL002
  162.     Print STRING005
  163.     AnsiPos INTEGER014, INTEGER015
  164.     STRING005 = String(INTEGER032)
  165.     Gosub LABEL002
  166.     STRING004 = STRING005
  167.     STRING005 = String(INTEGER033) + "k"
  168.     Gosub LABEL002
  169.     STRING005 = STRING004 + " @X08[" + STRING005 + "@X08]"
  170.     Print STRING005
  171.     AnsiPos INTEGER012, INTEGER013
  172.     STRING005 = String(INTEGER034)
  173.     Gosub LABEL002
  174.     STRING004 = STRING005
  175.     STRING005 = String(INTEGER035) + "k"
  176.     Gosub LABEL002
  177.     STRING005 = STRING004 + " @X08[" + STRING005 + "@X08]"
  178.     Print STRING005
  179.     AnsiPos INTEGER016, INTEGER017
  180.     STRING005 = String(INTEGER036)
  181.     Gosub LABEL002
  182.     Print STRING005
  183.     AnsiPos INTEGER018, INTEGER019
  184.     STRING005 = String(INTEGER037)
  185.     Gosub LABEL002
  186.     Print STRING005
  187.     AnsiPos INTEGER022, INTEGER023
  188.     STRING005 = String(INTEGER038)
  189.     Gosub LABEL002
  190.     STRING004 = STRING005
  191.     STRING005 = String(INTEGER039) + "k"
  192.     Gosub LABEL002
  193.     STRING005 = STRING004 + " @X08[" + STRING005 + "@X08]"
  194.     Print STRING005
  195.     AnsiPos INTEGER020, INTEGER021
  196.     STRING005 = String(INTEGER040)
  197.     Gosub LABEL002
  198.     STRING004 = STRING005
  199.     STRING005 = String(INTEGER041) + "k"
  200.     Gosub LABEL002
  201.     STRING005 = STRING004 + " @X08[" + STRING005 + "@X08]"
  202.     Print STRING005
  203.     For INTEGER029 = 1 To 13
  204.         FGet 1, STRING005
  205.         Gosub LABEL002
  206.         AnsiPos INTEGER002, INTEGER001 + INTEGER029
  207.         Print STRING005
  208.         FGet 1, STRING005
  209.         Gosub LABEL002
  210.         AnsiPos INTEGER003, INTEGER001 + INTEGER029
  211.         Print STRING005
  212.         FGet 1, STRING005
  213.         Gosub LABEL002
  214.         AnsiPos INTEGER004, INTEGER001 + INTEGER029
  215.         Print STRING005
  216.         FGet 1, STRING005
  217.         Gosub LABEL002
  218.         AnsiPos INTEGER005, INTEGER001 + INTEGER029
  219.         Print STRING005
  220.         FGet 1, STRING005
  221.         Gosub LABEL002
  222.         AnsiPos INTEGER006, INTEGER001 + INTEGER029
  223.         Print STRING005
  224.         FGet 1, STRING005
  225.         Gosub LABEL002
  226.         AnsiPos INTEGER007, INTEGER001 + INTEGER029
  227.         Print STRING005
  228.     Next
  229.     FClose 1
  230.     If (Exist("AGSLCTMP." + String(PcbNode()))) Goto LABEL001
  231.     FCreate 1, PPEPath() + "AGSLCTMP." + String(PcbNode()), 1, 0
  232.     FPutLn 1, U_Name()
  233.     FPutLn 1, U_Ful()
  234.     FPutLn 1, U_Bul() / 1024
  235.     FPutLn 1, U_Fdl()
  236.     FPutLn 1, U_Bdl() / 1024
  237.     FPutLn 1, Mid(String(Time()), 1, 5)
  238.     FClose 1
  239.     :LABEL001
  240.     AnsiPos 1, 23
  241.     Wait
  242.     End
  243.     :LABEL002
  244.     STRING005 = Mid(STRING005, 1, 22)
  245.     STRING005 = Replace(STRING005, "0", "o")
  246.     STRING005 = Mid(STRING005, 1, 2) + STRING008 + Mid(STRING005, 3, Len(STRING005) - 3)
  247.     STRING005 = Mid(STRING005, 1, 1) + STRING007 + Mid(STRING005, 2, Len(STRING005) - 2)
  248.     STRING005 = STRING006 + STRING005
  249.     STRING005 = Trim(STRING005, " ")
  250.     Return
  251.  
  252. ;------------------------------------------------------------------------------
  253. ;
  254. ; Usage report (before postprocessing)
  255. ;
  256. ; ■ Statements used :
  257. ;
  258. ;    1       End
  259. ;    1       Wait
  260. ;    10      Goto 
  261. ;    47      Let 
  262. ;    14      Print 
  263. ;    11      If 
  264. ;    1       DispFile 
  265. ;    1       FCreate 
  266. ;    3       FOpen 
  267. ;    4       FClose 
  268. ;    49      FGet 
  269. ;    6       FPutLn 
  270. ;    1       Delete 
  271. ;    18      Gosub 
  272. ;    1       Return
  273. ;    1       Dec 
  274. ;    15      AnsiPos 
  275. ;
  276. ;
  277. ; ■ Functions used :
  278. ;
  279. ;    2       /
  280. ;    42      +
  281. ;    2       -
  282. ;    7       ==
  283. ;    1       <>
  284. ;    1       <
  285. ;    1       <=
  286. ;    2       >=
  287. ;    9       !
  288. ;    2       &&
  289. ;    1       ||
  290. ;    2       Len(
  291. ;    6       Upper()
  292. ;    6       Mid()
  293. ;    1       Trim()
  294. ;    1       Time()
  295. ;    2       U_Name()
  296. ;    1       U_Logons()
  297. ;    1       U_Ful()
  298. ;    1       U_Fdl()
  299. ;    1       U_Bdl()
  300. ;    1       U_Bul()
  301. ;    1       Replace()
  302. ;    19      String()
  303. ;    7       PPEPath()
  304. ;    5       PcbNode()
  305. ;    2       Exist()
  306. ;
  307. ;------------------------------------------------------------------------------
  308. ;
  309. ; Analysis flags : No flag
  310. ;
  311. ;------------------------------------------------------------------------------
  312. ;
  313. ; Postprocessing report
  314. ;
  315. ;    1       For/Next
  316. ;    0       While/EndWhile
  317. ;    7       If/Then or If/Then/Else
  318. ;    0       Select Case
  319. ;
  320. ;------------------------------------------------------------------------------
  321. ;                 AEGiS Corp - Break the routines, code against the machines!
  322. ;------------------------------------------------------------------------------
  323.